|
4
|
How can I fit or ensure that all elements are in the control's client area
with SwimLane1 do
begin
with Elements do
begin
Add('Element A',OleVariant(-500),OleVariant(-500)).BackColor := $ff00;
Add('Element B',OleVariant(500),OleVariant(500)).BackColor := $ff;
Add('Element C',OleVariant(48),OleVariant(24));
end;
FitToClient();
end
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
with SwimLane1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn');
Add(2,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn');
Add(12,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn');
Add(14,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn');
Add(17,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn');
Add(18,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn');
Add(30,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn');
Add(31,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn');
Add(32,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn');
Add(33,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn');
Add(34,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn');
Add(35,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn');
end;
Background[EXSWIMLANELib_TLB.exContextMenuAppearance] := $1000000;
Background[EXSWIMLANELib_TLB.exToolTipAppearance] := $1fefefe;
Background[EXSWIMLANELib_TLB.exContextMenuSelBackColor] := $e000000;
Background[EXSWIMLANELib_TLB.exToolBarAppearance] := $1000000;
Background[EXSWIMLANELib_TLB.exToolBarBackColor] := $ffffff;
Background[EXSWIMLANELib_TLB.exToolBarButtonHotBackColor] := $c000000;
Background[EXSWIMLANELib_TLB.exToolBarButtonDownBackColor] := $e000000;
Background[EXSWIMLANELib_TLB.exContextMenuHotBackColor] := $c000000;
Background[EXSWIMLANELib_TLB.exContextMenuSelHotBackColor] := $23000000;
Background[EXSWIMLANELib_TLB.BackgroundPartEnum($2)] := $22000000;
Background[EXSWIMLANELib_TLB.BackgroundPartEnum($3)] := $23000000;
Background[EXSWIMLANELib_TLB.exCheckBoxState0] := $20000000;
Background[EXSWIMLANELib_TLB.exCheckBoxState1] := $21000000;
Background[EXSWIMLANELib_TLB.exRadioButtonState0] := $1e000000;
Background[EXSWIMLANELib_TLB.exRadioButtonState1] := $1f000000;
EndUpdate();
end
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
with SwimLane1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn');
Add(2,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn');
Add(3,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn');
Add(4,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn');
Add(5,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn');
Add(6,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn');
Add(7,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn');
Add(8,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn');
Add(9,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn');
Add(10,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn');
Add(11,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn');
Add(12,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn');
Add(13,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn');
Add(14,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn');
Add(15,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn');
Add(16,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn');
Add(17,'CP:16 0 0 0 1');
Add(18,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn');
Add(19,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn');
Add(20,'CP:19 0 0 0 1');
end;
Background[EXSWIMLANELib_TLB.exContextMenuAppearance] := $1000000;
Background[EXSWIMLANELib_TLB.exContextMenuForeColor] := $8b4215;
Background[EXSWIMLANELib_TLB.exContextMenuSelBackColor] := $e000000;
Background[EXSWIMLANELib_TLB.exToolTipAppearance] := $1fefefe;
Background[EXSWIMLANELib_TLB.exToolBarAppearance] := $1000000;
Background[EXSWIMLANELib_TLB.exToolBarBackColor] := $ffffff;
Background[EXSWIMLANELib_TLB.exToolBarButtonHotBackColor] := $d000000;
Background[EXSWIMLANELib_TLB.exToolBarButtonDownBackColor] := $1000000;
Background[EXSWIMLANELib_TLB.BackgroundPartEnum($2)] := $d000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameSingle] := $5000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameHStart] := $6000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameHIntermediate] := $7000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameHEnd] := $8000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameVStart] := $9000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameVIntermediate] := $a000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameVEnd] := $b000000;
Background[EXSWIMLANELib_TLB.exContextMenuHotBackColor] := $c000000;
Background[EXSWIMLANELib_TLB.exContextMenuSelHotBackColor] := $f000000;
EndUpdate();
end
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
with SwimLane1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn');
Add(2,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn');
Add(3,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn');
Add(4,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn');
Add(5,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn');
Add(6,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn');
Add(7,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn');
Add(8,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn');
Add(9,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn');
Add(10,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn');
Add(11,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn');
Add(12,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn');
Add(13,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn');
Add(14,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn');
Add(15,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn');
Add(16,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn');
Add(17,'CP:16 0 0 0 1');
Add(18,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn');
Add(19,'C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn');
Add(20,'CP:19 0 0 0 1');
end;
Background[EXSWIMLANELib_TLB.exContextMenuAppearance] := $1000000;
Background[EXSWIMLANELib_TLB.exContextMenuForeColor] := $8b4215;
Background[EXSWIMLANELib_TLB.exToolTipAppearance] := $1fefefe;
Background[EXSWIMLANELib_TLB.exToolBarAppearance] := $1000000;
Background[EXSWIMLANELib_TLB.exToolBarBackColor] := $ffffff;
Background[EXSWIMLANELib_TLB.exToolBarButtonHotBackColor] := $d000000;
Background[EXSWIMLANELib_TLB.exToolBarButtonDownBackColor] := $1000000;
Background[EXSWIMLANELib_TLB.BackgroundPartEnum($2)] := $d000000;
Background[EXSWIMLANELib_TLB.BackgroundPartEnum($3)] := $1000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameSingle] := $5000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameHStart] := $6000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameHIntermediate] := $7000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameHEnd] := $8000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameVStart] := $9000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameVIntermediate] := $a000000;
Background[EXSWIMLANELib_TLB.exContextMenuGroupPopupFrameVEnd] := $b000000;
Background[EXSWIMLANELib_TLB.exContextMenuHotBackColor] := $c000000;
Background[EXSWIMLANELib_TLB.exContextMenuSelBackColor] := $e000000;
Background[EXSWIMLANELib_TLB.exContextMenuSelHotBackColor] := $f000000;
EndUpdate();
end
|